home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ipworks / bulkmail.fr_ / bulkmail.fr (.txt)
Encoding:
Visual Basic Form  |  1996-04-07  |  5.2 KB  |  173 lines
  1. VERSION 2.00
  2. Begin Form frmSend 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "EMAIL DEMO - Send Mail"
  5.    ClientHeight    =   5085
  6.    ClientLeft      =   1785
  7.    ClientTop       =   4425
  8.    ClientWidth     =   6555
  9.    Height          =   5490
  10.    Left            =   1725
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5085
  13.    ScaleWidth      =   6555
  14.    Top             =   4080
  15.    Width           =   6675
  16.    Begin TextBox tMailServer 
  17.       Height          =   285
  18.       Left            =   1320
  19.       TabIndex        =   0
  20.       Top             =   120
  21.       Width           =   2415
  22.    End
  23.    Begin CommandButton Command4 
  24.       Caption         =   "Send Message"
  25.       Height          =   315
  26.       Left            =   3840
  27.       TabIndex        =   5
  28.       Top             =   90
  29.       Width           =   1815
  30.    End
  31.    Begin TextBox tMessage 
  32.       FontBold        =   0   'False
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   8.25
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       Height          =   2295
  39.       Left            =   0
  40.       MultiLine       =   -1  'True
  41.       ScrollBars      =   3  'Both
  42.       TabIndex        =   4
  43.       Top             =   2640
  44.       Width           =   6495
  45.    End
  46.    Begin TextBox tRecipients 
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   975
  54.       Left            =   0
  55.       MultiLine       =   -1  'True
  56.       ScrollBars      =   2  'Vertical
  57.       TabIndex        =   2
  58.       Top             =   1200
  59.       Width           =   6495
  60.    End
  61.    Begin TextBox tFrom 
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   8.25
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   285
  69.       Left            =   960
  70.       TabIndex        =   1
  71.       Top             =   600
  72.       Width           =   4095
  73.    End
  74.    Begin TextBox tSubject 
  75.       FontBold        =   0   'False
  76.       FontItalic      =   0   'False
  77.       FontName        =   "MS Sans Serif"
  78.       FontSize        =   8.25
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       Height          =   285
  82.       Left            =   960
  83.       TabIndex        =   3
  84.       Top             =   2280
  85.       Width           =   5535
  86.    End
  87.    Begin SMTP SMTP1 
  88.       BCc             =   ""
  89.       Cc              =   ""
  90.       Date            =   ""
  91.       From            =   ""
  92.       Height          =   420
  93.       Left            =   5640
  94.       MailServer      =   ""
  95.       MessageText     =   ""
  96.       RegHandle       =   BULKMAIL.FRX:0000
  97.       ReplyTo         =   ""
  98.       Subject         =   ""
  99.       To              =   ""
  100.       Top             =   600
  101.       Width           =   420
  102.       WinsockLoaded   =   0   'False
  103.    End
  104.    Begin Label l3 
  105.       BackStyle       =   0  'Transparent
  106.       Caption         =   "Mail Server: "
  107.       Height          =   255
  108.       Index           =   0
  109.       Left            =   120
  110.       TabIndex        =   9
  111.       Top             =   120
  112.       Width           =   1575
  113.    End
  114.    Begin Label l3 
  115.       BackStyle       =   0  'Transparent
  116.       Caption         =   "From:"
  117.       Height          =   255
  118.       Index           =   2
  119.       Left            =   120
  120.       TabIndex        =   8
  121.       Top             =   600
  122.       Width           =   855
  123.    End
  124.    Begin Label l2 
  125.       BackStyle       =   0  'Transparent
  126.       Caption         =   "Subject:"
  127.       Height          =   255
  128.       Index           =   1
  129.       Left            =   120
  130.       TabIndex        =   7
  131.       Top             =   2280
  132.       Width           =   855
  133.    End
  134.    Begin Label l1 
  135.       BackStyle       =   0  'Transparent
  136.       Caption         =   "Recipients (Blind Carbon Copies - comma separated):"
  137.       Height          =   255
  138.       Index           =   0
  139.       Left            =   120
  140.       TabIndex        =   6
  141.       Top             =   960
  142.       Width           =   5535
  143.    End
  144. Sub Command4_Click ()
  145. SMTP1.WinsockLoaded = True
  146. SMTP1.MailServer = tMailServer
  147. SMTP1.Action = 4 'Reset Headers
  148. SMTP1.From = tFrom
  149. SMTP1.To = tFrom  'send copy to yourself for confirmation
  150. SMTP1.BCc = tRecipients
  151. SMTP1.Subject = tSubject
  152. SMTP1.MessageText = tMessage
  153. MousePointer = 11
  154. SMTP1.Action = 3' 'Send Message
  155. MousePointer = 0
  156. SMTP1.Action = 2' 'Disconnect From Server
  157. End Sub
  158. Sub Form_Resize ()
  159. If WindowState <> 1 Then
  160.     If ScaleWidth - tSubject.Left > 120 Then
  161.         tSubject.Width = ScaleWidth - tSubject.Left - 120
  162.     End If
  163.     tRecipients.Width = ScaleWidth
  164.     tMessage.Width = ScaleWidth
  165.     If ScaleHeight - tMessage.Top > 10 Then
  166.         tMessage.Height = ScaleHeight - tMessage.Top
  167.     End If
  168. End If
  169. End Sub
  170. Sub SMTP1_PITrail (Direction As Integer, Message As String)
  171. Debug.Print Direction & ": " & Message
  172. End Sub
  173.